palmy |F0 sub palmx palmy |F1 add palmx |F2 add 

.18 .18 pen


.5 .5 pen


|F0 |F1 pen


|F0 |F1 |F2 |F3 

currentfont |F0 scalefont setfont


0 ov


|F4 |F5 0 rr


0 rc


palmy |F0 sub palmx palmy |F1 add currentpoint pop 

palmx currentpoint pop sub 0 rlineto


/palmx currentpoint pop def
/palmy currentpoint exch pop def


closepath


currentpoint newpath moveto


stroke


 1 1 pen


palmmtx setmatrix


/palmmtx matrix currentmatrix def


|F0 |F1 |F2 |F3 1 ov


|F0 |F1 |F2 |F3 0 ov


|F0 |F1 |F2 |F3 |F4 |F5 1 rr


|F0 |F1 |F2 |F3 |F4 |F5 0 rr


|F0 |F1 |F2 |F3 1 rc


|F0 |F1 |F2 |F3 0 rc


|F0 0

|F0 1 scale




mark F |I0<|H1>pat cleartomark


|F0 |F1 rlineto


|F0 |F1 lineto


|F0 |F1 rmoveto



|F0 |F1 moveto